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C201,10I]RMSITDXLNK.R32 
Define subroutine Linkage 
i 


Lee REAR ERATE TERETE eee 
‘ 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


® 
® 
® 
® 
® 
is THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
it ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
i OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
it TRANSFERRED. * 
* 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
ie AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
ie CORPORATION. . 
* 
* 
® 
® 
® 
® 


it DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
i eee terete eee ee ee Ree eee EERE RHE RKRe eee eeeeeeeeeeeeeeeeeeeleeeeeeeeene 
e+ 
' 
FACILITY: RMS32 INDEX SEQUENTIAL FILE ORGANIZATION 
i ABSTRACT: 
This module defines all the routine Linkage 
ENVIRONMENT: 


VAX/VMS OPERATING SYSTEM 


AUTHOR: D. H. Gillespie CREATION DATE: 17-MAR-1978 
and W. Koenig 


i MODIFIED BY: 
V03-024 RASO154 aefer 2-May-1983 
Add NOPRESERVE (RSD ay t *EXTENDO Linkage. 
v03-023 MCNO020 Maria del C. r-1983 


Eliminage Linkages of RMSNULLKEY and RNSCOMPRESS KEY 
They will be using general linkages. Modify L_ACLOC3, 
and L_EXTENDO to use parameters instead of global registers. 


v03-022 MCNO019 Maria del C. Nasr 05-Apr-1983 


ccbtnineeneney Dia wtdtiee iceman 
& 
~- 
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' 
! 
. 
' 
. 
1 
! 
. 
' 
. 
' 
. 
' 
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Preserve all registers except RO and R1 in Linkage 
FABREG. RMSXSUMO requires a separate Linkage because 
it cannot preserve R4, 


TMKOOO1 Todd M. Katz 26-Mar-1983 
Add the Linkage RABREG_4. 


v03-020 MCNOO18 Maria del C. Nasr 24-Mar-1983 


Define new general Linkages. Also, since the Linkages 
have changed so much, eliminate all history comments. 


-RRRRAABASAAASAASASAASLASSELESALESESESELESSE SESE REESE ERE SESE ASSESS So 
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This module defines all the routine Linkage for RMS-32 index file 
organization. 


KEEP THESE DEFINITIONS IN ALPHABETICAL ORDER PLEASE 
The following conventions will be used for Linkage macros: 


MACRO L_NAME = 
RLSNAME 


i 
' 
1 
! 
' 
! 
' 
' 
' 
' 
' 
: GLOBAL (R 
! 
' 
' 
' 
" 


JSB (REGISTERS) : 
EGISTER DEFINITIONS) %; 
The register definitions are macros of the form 
COMMON FABREG, COMMON _RABREG, COMMON 1ORES. etc. 
or R_REGNAME as described in RMSIDXMAC.R 
ACRO 
L_ALDBUF = 
RLSALDBUF = 
JSB (REGISTER = 5) : 
AL (R_IMPURE, R_IFAB) 
NOPRESERVE (2,3,4) 
NOTUSED (8,9) %, 
L_ALLOC3 = 
RL$ALLOC3 = 
SB (REGISTER = 7; REGISTER = 1, REGISTER = 2) : 
GLOBAL (R_IFAB) %, 
L_BDBALLOC = 
RLS$BDBALLO 
JS8 (REGISTER = ang REGISTER = 5) : 
GLOBAL (COMMON_RABREG) 
NOPRESERVE (2,3,4,5.6) %, 
L_CACHE = 
RLSCACHE = 
JSB (REGISTER = 1, REGISTER = 2, REGISTER = 3) : 
GLOBAL (COMMON_IOREG) 
NOPRE SERVE (eB press 
NOTUSED (8,9,10.11) &, 
L_CHECK_SEGMENT 
"RLSCHECK SEGMENT = 
REGISTER = 4, REGISTER = 2) : 
GLOBAL (R NS 


JS3 (REGISTER = 0 
Dx DFN 


L_CHKSUM = 
RLSCHKSUM = 
JSB (REGISTE 
NOPRESERVE ( 


= | 
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E_KEY = 
JSB SCOMPaRE xt = 1, REGISTER = 3, REGISTER = 0) : 
GLOBAL (R_IDX_DFNS 

NOPRESERVE Cay rN 


LLERROR_LINK1 = 


L_ERROR 


LLEXTEND 


~RLSERROR LINK! = 


J 
GLOBAL (COMMON ~RABREG) 
PRESERVE (0) %7 


_LINK2 = 
RLSERROR LINK2 = 


3 OBAL (COMMON. RABREG, R_IDX_DFN) 
PE SERVE (0) % 


% 
ISTER = 6; REGISTER = 1, REGISTER = 6) 


L_FABREG = 


L_FABREG 


L_GETSPC = 


L_JSB = 


L_JSB01 


60h: 


GLOBAL _ (COMMON _FABREG) 
NOPRESERVE (0,7) %, 


RLSFABREG.7 2 
GLOBAL (COMMON_FABREG, R_IDX_DFN) %, 


RLSGETSP 


JSB (REGISTER REGISTER = 2; REGISTER = 1) 


L$JSB01 = 
aSB (REGISTER = REGISTER = 1) 
GLOBAL (R_BKT A0bi. R_REC_ADDR, R. IDX_DFN, R_IRAB, R_IFAB) 
NOPRESERVE (071 


L_LINK_7_10_1 
RLSCINK_ 7_10_11 = 


CLOBAL (R_ IDX_DFN, R_IFAB, R_IMPURE) 


H 
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NOPRESERVE (0,1) %, 


L_PRESERVE! = 
ry eta - 


GLOBAL me -RABREG, R_BDB, R_REC_ADDR, R_IDX_DFN) 
PRESERVE (1) %7 


L_QUERY ~AND LOCK = 
LSOUERY AND 
ise ¢ EGISteR = “REGISTER = 2) 
GLOBAL econ ee ABR EG) 
NOPRESERVE (3)~%, 


ABREG = 
RLSRABREG = 
SB () 


J 
GLOBAL (COMMON RABREG) 
NOPRESERVE (0,7) %, 


L_RABREG 4 = 
Tegreanes. 4 = 


GLOBAL (COMMON _RABREG, R_BDB) 
NOPRESERVE (0,7) %, 


L_RABREG_ 4567 = 
RLSRABREG_ 4567 = 
JSB () 


GLOBAL (COMMON. RABREG, COMMON_IOREG, R_REC_ADDR, R_IDX_DFN) 
NOPRESERVE (0,7) %, 


L_RABREG_457 = 
RLSRABREG_ 457 = 


GLOBAL (COMMON RABREG, COMMON_IOREG, R_IDX_DFN) 
NOPRESERVE (0,7) %, 


L_RABREG_467 
mgr. 467 = 


GLOBAL (COMMON RABREG. R_BDB, R_REC_ADDR, R_IDX_DFN) 
NOPRESERVE (0,7) % 


L_RABREG_567 = 
Hearesnes. 567 = 


GLOBAL (COMMON_RABREG, R_BKT_ADDR, R_REC_ADDR, R_IDX_DFN) 
NOPRESERVE (O.T) E. 


L_RABREG_67 = 
Tearepres 67 = 


GLOBAL (COMMON_RABREG, R_REC_ADDR, R_IDX_DFN) 
NOPRESERVE (0,7) %, 


in 


ee 
ati 
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L_RABREG 7 = 
RLSRABREG_ 7 = 
JSB () 


GLOBAL {COMMON RABRES » R_IDX_DFN) 
NOPRESERVE (O11) 


L_REC ~OVHD = 
RLS 


TER = 1) : 
X_DFN, R_IFAB) %, 


) 
“TRAB, R_IFAB, R_IMPURE) 


L_RELEASE FAB = 
RCSRE ELEA 


) 
IF AB, R_IFAB_FILE, R_ IMPURE ) 


astehtee™ a 
RLSRETSPC 
JSB (REGISTE 


GLOBAL (R 
NOPRESERVE. i 
NOTUSED (8,9 


L_SIDR_FIRST 
RLSSIDR_F RS 
JSB (STANDARD; REGISTER = 1, REGISTER = 2) : 
GLOBAL (R_REC_ADDR, R_IDX _DFN, COMMON N_RABREG) 2%, 


L_XSUMO = 
RLSXSUMO = 


GLOBAL (COMMON regres) 
NOPRESERVE (0,1,4) 2%; 


REGISTER = 3, REGISTER = 
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